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EDTSCHMBEEP = print a message with bell 1S-se 1984 23:44:24 VAX-11 Bliss-32 V4.0-74 Page 1 E 
° 12-Sep-19 4 $3:33: 9 DLEKSVMEMASTERSLEDT SRCTCHMBEEP.BLI:1 . (1), V 

1 ZTITLE ‘EDTSCHMBEEP = print a message with bell’ 

§ MODULE EDTSCHMBEEP ( ! Print a message with bell 

7 oem = 'v04-000' ! File: CHMBEEP.BLI Edit: J8S1005 

= 
5 


BEGIN 
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i COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 

* 

% 

® 

® 

iw THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
ies TRANSFERRED. * 
® 

is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 

i CORPORATION. : 
* 

© 

® 

® 

* 

® 


'® DIGITAL ASSUMES NO RESPONS 
'® SOFTWARE ON EQUIPMENT WHIC 
it 
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fh FOR THE USE OR RELIABILITY OF ITS 


I 
H NOT SUPPLIED BY DIGITAL. 
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34 '+¢ | 
3 FACILITY: EDT -- The DEC Standard Editor 
34 ; ABSTRACT: 
36 i This module puts an error message to the terminal, 
3 with a warning bell. 
+44 ENVIRONMENT: Runs at any access mode - AST reentrant | 
0041 ; AUTHOR: Bob Kushlis, CREATION DATE: Unknown 
0045 MODIFIED BY: | 
45 0045 1 ! 1-001 - Original. DJS 04-Feb-1981. This module was created by 
46 0046 : extracting the routine EDTS$MSG_BELL_ from module CHANGE.BLI. 
47 0047 ! 1-002 = Regularize headers. JBS 27-Feb-1981 
48 apes !' 1-005 - Fix module name. JBS 02-Mar-1981 
49 049 ! 1-004 - Add more parameters to OUT_MSG. SMB 29-Jun-1982 
29 $030 1-005 = Improve the appearance of fhe Listing. JBS 13-Jun-1983 
52 0052 1 
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+c - print a message with bell 
ons 


SSBTTL ‘Declarations’ 
! TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSSMSG_BELL : NOVALUE; 


! INCLUDE FILES: 


REQUIRE "EDTSRC:EDTREQ'; 
' 


i MACROS: 
} NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 

NONE 

EXTERNAL REFERENCES: 
: In the routine 


! Output a message to the terminal with a warning bell 


2 
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-TITLE EDTSCHMBEEP FOr pciemecr - print a message with 
-IDENT \V04-000\ 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
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EDTSCHMBEEP EDTSCHMBEEP = print a message with bell 18. 1984 23:44:24 VAX-11 Bliss-32 V4.0-74 Page 3) 

042000 ED SSMSG_BELL zt print a message with bell 1h-8ep-19 4 93:53: 9 DLSKSVMGMASTERSLEDT. SRCTCHMBEEP.BLI: 1 (3) 

es o38 } ZSBTTL "EDTSSMSG_BELL = print a message with bell’ : 
H ‘ 06 § 1 GLOBAL ROUTINE EDTSSMSG_BELL ( ! Print a message with bell 3 
; 660 1 MSG_NUM ! message number : 
; 661 1 ) : NOVALUE = F 
: 98 662 | : 
ee. 665 1 !44 ‘ 
; 3e bere: : FUNCTIONAL DESCRIPTION: : 
; | 6946 pees = Put an error message to the terminal, and if the quiet mode : 
; 0667 1! is not set, ring the bell. : 
; S084 1! | F 
; 99 669 1 ! FORMAL PARAMETERS: ‘ 
; 100 0670 1! - 3 
3; «6101 0671 1! MSG_NUM number of the message to print : 
3 198 0672 1! 3 
; 10 06735 1 ! IMPLICIT INPUTS: 3 
: 104 0674 1! 3 
: 105 0675 1! EDT$$G_QUIET : 
; 106 0676 1! EDTS$G_MESSAGE_LINE : 
; 107 0677 1! 3 
:; 108 0678 1°! IMPLICIT OUTPUTS: : 
; 109 0679 1! : 
; 110 0680 1! NONE : 
; 6111 0681 1! : 
3 tg 0682 1 ! ROUTINE VALUE: 3 
Tee 0685 1! F 
; 116 0684 1! NONE : 
s 195 0685 1! : 
; 116 0686 1 ! SIDE EFFECTS: : 
3 (117 0687 1! 3 
; 118 0688 1! NONE ; 
; 119 0689 1! | F 
; 120 0690 1 !-- 3 
: tel 0691 1 $ 
> 122 069 BEGIN : 
; 123 069 3 
: 126 0694 EXTERNAL ROUTINE é : é 
s te 0695 EDTSSOUT_MSG : NOVALUE, ! Output a message on the last Line of the terminal ; 
3 136 Be98 EDTSSFMT_LIT; ! Format a literal string : 
i 18 0698 EXTERNAL | : 
: 129 0699 EDTS$G_MESSAGE_LINE, ! Error message Line is 1 more 3 
; : : ane EDTS$$G_QUIET; ! Should I ring the bell or not? : 
: : § 44 IF (.EDTS$SG_QUIET EQL 0) THEN EDTSSFMT_LIT (UPLIT (7), 1); : 
5.2 4 0704 EDTSSOUT_MSG (.EDTSSG_MESSAGE_LINE + 1, .MSG_NUM, 0, 0); : 
3; 135 0705 1 END; T of routine EDTS$SMSG_BELL 3 


DISCHMBEEP = print a message with bell 
DTSSMSG_BELL = print a message with bell 14-Sep-1984 
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0000 0000 

000000006 00 3 000 

OC 12 0000 

o YP Be 

000000006 00 Oe FB ie 
—E 7C¢ g 1$ 

04 AC DD 0001 
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000000006 00 04 FB BROS 

04 0002A 

; Routine Size: 43 bytes, Routine Base: _EDTSCODE + 0004 
1 0706 


1 
1 !<BLF/PAGE> 


1$. 509-19 4 


t 93:33: 


& VAX=11 BLi 


s-32 V4. 
9 DISKSVMSMA 


0-7 
TERSCEDT SRCICHMBEEP.BLI;1- 
EDTSSFMT_LIT 
“LINE 


L, Save nothing 


P.AAA 
#2, EDTSSFMT_LIT 
-(§P) 


MSG_NUN 
#1, EDT$$G_MESSAGE_LINE, 


-(SP) 
#4, EDTSSOOT_MSG 


4. 
* (3). 


de Time: oF 4 
Lines/CPU Min: 463 
Lexemes/CPU-Min: 13870 
"Y Used: 56 pages 
Compilation Complete 


2 he f HMBEEP EDTSCHMBEEP = print a message with bell $334 4:24 VAX-11 Bliss-32 V4.0-74 
EDTSSMSG_BELL = print a message with bell 2:22:19 DISKSVMSMAS TER: CEDT.SRCJCHMBEEP.BLI; 

; 139 708 1 END of module EDTSCHMBEEP 
; 140 7 1 
: «(141 710 O ELUDOM 
3 PSECT SUMMARY 
: Name Bytes 
: _EDTSCODE 4? NOVEC,NOWRT, RD, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
Feed eid see en ee ae Symbols Pages Processing 
3 File Total Loaded Mapped Time 
: _$255$DUA28:(EDT.SRCJEDT.L32;1 377 0 40 90:00.2 
z ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 7 00:00.1 
; COMMAND QUALIFIERS 
; PLISS/CHECK SCE SELB, INITIAL OPT IAI ZE) /HOTRACEBACK/L [S01 158 1 CHRBEEP/08)=08./8 : CHRBEEP MSRC$: CHMBEEP.BLI/UPDATE=(ENH$: CHMBEEP 

size: 43 code + 4 data bytes 

un Time: 
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